home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 117 - YY Proterm2.dsk / TO.ULTA.MACRO.1 / ULTRAMACROS / READ.NOTES.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  23 lines
  1. 0  REM <CTRL-J><CTRL-J>Word processor file browser<CTRL-M><CTRL-M>
  2. 100 A$ = "UltraMacros": REM  Product Name
  3. 110 AD = 6144
  4. 120  PRINT  CHR$(4)"bload printwp"
  5. 130  PRINT  CHR$(4)"bload notes,tawp,a$2000,b300"
  6. 140  TEXT : NORMAL : PRINT  CHR$(4)"PR#3"
  7. 150  HOME : PRINT  SPC( 37 - LEN(A$)/2)A$" Notes"
  8. 160  FOR I = 1 TO 8: PRINT "==========";: NEXT : VTAB 22: PRINT : FOR I = 1 TO 8: PRINT "----------";: NEXT 
  9. 170  PRINT "Use arrow keys to select page. Press Escape to quit";
  10. 180  CALL AD: REM  Init
  11. 190 D = 1
  12. 200  REM  Process each page
  13. 210  POKE 6,D: POKE 34,2: POKE 35,22: CALL AD +3: POKE 34,0: POKE 35,22
  14. 220  VTAB 24: POKE 36,69: PRINT "Page: " PEEK(7)" ";
  15. 230 C =  PEEK(49152): IF C <128  THEN 230
  16. 240  POKE 49168,0:C = C -128
  17. 250  IF C = 10  OR C = 21  THEN D = 1: GOTO 210: REM  Next page
  18. 260  IF C = 8  OR C = 11  THEN D = 0: GOTO 210: REM  Prev page
  19. 270  IF C = 27  THEN 290: REM  Quit
  20. 280  GOTO 230: REM  Error
  21. 290  REM <CTRL-J><CTRL-J>DONE<CTRL-J><CTRL-J>
  22. 300  TEXT : HOME 
  23. 310  PRINT  CHR$(4)"-install.timeout"